home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Other Stuff / Demos ƒ / Demo AppMaker / Demo AppMaker™ / Demo AppMaker™.rsrc / TmPT_109_Interface < prev    next >
Encoding:
Text File  |  1990-03-23  |  1.2 KB  |  46 lines
  1. { %filename% -- interface file for %AppName% }
  2. { Created %date% %time% by AppMaker }
  3.  
  4. {    This module overrides the AppMaker-generated code in z%Appname%Intf.%    %}
  5. {    It provides a place for you to add your own code and still be able to    }
  6. {    generate code for new changes to the user interface.  This module will    }
  7. {    not be regenerated by AppMaker unless you delete it.  Its superclass,    }
  8. {    z%Appname%Intf, may be regenerated to handle user interface changes%    %}
  9. {    without losing your hand-coded changes to this module.                    }
  10.  
  11. Unit %AppName%Intf;
  12. Interface
  13.  
  14. Uses
  15.     TCL,
  16.     AMCL,
  17.     z%AppName%Intf;
  18.     
  19. %for each window gen interface%
  20. %for each dialog gen interfaceModeless%
  21. type
  22.     C%Appname%Doc = object (Z%Appname%Doc) 
  23.  
  24.         {----------}
  25.         Function  ReadData    (var theData:    Handle): boolean; override;
  26.         Procedure WriteData; override;
  27.  
  28.         Procedure DoCommand    (theCommand:    longint); override;
  29.  
  30.     end; {C%Appname%Doc}
  31.  
  32. type
  33.     C%Appname%App = object (Z%Appname%App)
  34.     
  35.         {----------}
  36.         Procedure SetUpFileParameters; override;
  37.         %for each menu gen doItems.decl.override%
  38.         Procedure DoCommand        (theCommand:    longint); override;
  39.     
  40.     end; {C%Appname%App}
  41.  
  42. {----------}
  43. Implementation
  44.  
  45. End. {%AppName%Intf}
  46.